Labels:text | electronics | screenshot | display | software | number | computer icon | web page | font | operating system | website OCR: embCallMove Properties D > MouseMove MouseUp Sub MouseUp(x as Integer, y as Integer, shift as Integer) Application. Set Cursor ( 1 ) PositionX = embCall. Positionx PositionY = embCall. PositionY IF x > repSched. PositionX AND x < vsbSched. PositionX THEN IF y > repSched. PositionY AND y < repSched. PositionY + repSched. SizeY THEN VRow = CINT( ( y - repSched. PositionY ) / 25 ) + 1 + vsbSched. ScrollPos DIM vRec AS Object VRec = repSched. GetRecordset ( ) VRec. Set CurRow ( vRow ) VRec. Set ColVal ( "EVENT", Label ) END IF END IF
